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Process TypicalBinoryMultiply (A,B) 
Z=0; 

For i in 0 to n-1 loop 
c := 0: 

For j in 0 to n-1 loop 

!]+]:= (Zi+j+Aj*Bj+c) mod 2; 

c := (Zi+j +Aj*Bj+c) div 2; 
end loop; 

for j in n to 2n-l loop 

Zj := (Zj+c) mod 2; 

c := (Zj+c) div 2; 
end loop; 

tronsmit Zj; 

end loop; 
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Process Reduce(Zj, N) 
c := 0; 

For i in 0 to n-1 loop 
wait for Zj 
Xj := Zj; 

Xj := (Xj+x*Ni+c) mode 2; 

c := (Xi+x*Nj+c) div 2; 
end loop; 
X := X/2; 

For i in 1 to k-1 loop 
X = X mod 2; c := 0; 
For j in 0 to n-1 loop 
Xj =(Xj+x*Nj+c) mod 2; 
c =(Xj+x*Nj+c) div 2; 
end loop; 
X = X/2; 
end loop; 



B— 'Nc(l) 



F/F 



A 


S 


B 


FA 


CI 


CO 



F/F 



F/F 



A 


S 


B 


FA 


CI 


CO 



N 



F/F 




FIG. 1 8 



064751.0298 
9 of 19 




064751.0298 
10 of 19 




064751.0298 




9 8 7 



FIG. 1 3 



064751.0298 
12 of 19 




064751.0298 




TIME 9 8 7 



FIG. 1 6 



064751.0298 
15 of 19 



36 



FIG. 1 9 



[A]59*[B]59 
[A]61*[B]6i 

[Al6r[B]63 
[A]7l*[B]71 

IA]73*[B]73 
[A]7g*[B]79 



MOD 59 REDUCTION (6 STAGE) 



MOD 61 REDUCTION (6 STAGE) 
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